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■W LOOK! 

The Microcomputer Newsletter has 
evolved to the Microcomputer News. 
Along with this change in name comes a 
new format and a new style of type. In 
short, a whole new image. We are excited 
about the new image and know that you 
will be too! 

As always, the Microcomputer News 
exists as an open communications channel 
between Radio Shack and you, our cus- 
tomers. Our objective is to keep you in- 
formed. Information will come from inter- 
nal sources as we make New-Product An- 
nouncements, and keep you informed on 
the status of our current products. Informa- 
tion will also come from you. As we have 
space, and when we find information 
which will benefit a large number of you, 
we will "pass it along." These programs, 
provided free by other TRS-80 owners, are 
made available to help you use your 
TRS-80 to its fullest without you having to 
"re-invent the wheel." 

More Computer Q 

In the last few weeks we have "re- 
ceived information about the following 
new computer clubs: 
80 — USERS OF HOUSTON CLUB 
6900 S. Rice 
Bellaire, TX 77401 
(713) 664-5823 

DELAWARE VALLEY COMPUTER SOCIETY 

P.O. Box 651 

Levittown, PA 19058 

and 

TRS-80 USERS GROUP 

CSRA COMPUTER CLUB 

PO. Box 284 

Augusta, GA 30903 
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Radio Shack is currently distributing copies of the final Model II Owner's Manual, and 
copies of the new TRSDOS 1.2 to all Radio Shack Stores and Dealers who have recorded 
sales of TRS-80 Model II microcomputers. 

If you have purchased a TRS-80 Model II, check with the store or dealer where you 
bought the computer. The store either has, or will soon receive, a FREE update package 
which includes your final copy of the Owners Manual, a TRSDOS 1.2 diskette, TRSDOS 1 2 
manual update package, and the new Model II Quick Reference Card. 



T1SDOS 1.2. We think you will be pleased wit 
format allows much faster disk access. We 
present in TRSDOS 1.1, and added five 
new utility programs to the disk. 

TERMINAL. This is a new, full featured, 
terminal program which replaces the 
TERM program from TRSDOS 1.1. We 
should note that an error exists in this sec- 
tion. The section on the "P" option for print- 
ing material on a line printer indicates that 
you can print WHILE you are receiving 
data. This is incorrect. Use the instructions 
provided to save the text using the "R" 
option, then print it later using a combina- 
tion of the "P" and "D" options. 

(Continued on page 4) 



h the new TRSDOS version 1. 2. The new disk 
fixed the few minor problems which were 
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One factor which can hamper string operations is the "garbage collection" routine. 
This is a computer controlled operation which allows the TRS-80 to recover previously 
used string space in memory. If you are sorting a large number of strings, "garbage 
collection" can consume a significant portion of your sorting time. 

We conducted a series of "benchmark" tests using three sort routines. The three 
routines were a standard bubble sort, a shell sort which exchanged strings, and a shell sort 
which exchanged pointers. To make things as equal as possible, we used the same basic 
program, changing only the method of sorting. Here are the results (times are in seconds): 



Number 


Bubble 


Shell W/O 


Shell 


of Strings 


Time 


VARPTR 


W/VARPTR 


10 


2 


3 


5 


50 


36 


17 


62 


100 


181 


50 


165 


500 


14396 


978 


1164 


1000 


— 


9763 


2560 



The system used for this test included 
a 48K Model I, Disk Basic and a line printer. 
Each sort was run only one time, so the 
times given are indicative, but may not be 
representative. Each sort was done using 
randomly generated strings. 

The skeleton program used was: 

10CLS:CLEAR22000 

15 DIM A$(1000) 

20 READ LAST 

30 FOR 1 = 1 TO LAST 

40AS(I) = STRING$(RND 
(30),RND(26) + 64) 

50 NEXT 

60QQ = QQ + 1 

70 PRINT'TEST IN PROGRESS — 
PASS";QQ;"OF5." 

99A1$ = TIME$:PRINT A1$ 
400 FOR 1 = 1 TO LAST 
410 PRINT A$(I) 
420 NEXT 

430 LPRINT "N = "; LAST, A1$, A2$ 
440 GOTO20 
1000 DATA 10,50,100,500,1000 

The sort routines were entered begin- 
ning at line 100. The following three sort 
routines were used: 

BUBBLE SORT 

100 M = LAST 

110 FOR 1 = 1 TOM-1 

120 FOR J = 1 + 1 TOM 

1 30 IF A$(I) < = A$(J) THEN 1 50 

140 T$ = A$(I): A$(I) = A$(J): A$(J) = T$ 

150 NEXT J 

160 NEXT I 

170 A2$ = T!ME$ 

SHELL SORT, swapping strings: 

100 N = LAST 

110M = N 

120M = INT(M/2) 

130 IF M = THEN A2$ = TIME$: GOTO 

400 
140 J = 1: K = N-M 
150I = J 
160L = I + M 

(Continued on page 4) 




We have recently received four pro- 
grams for outputing video information to 
the Quick Printer II (26-1155). We are re- 
producing two of them here. The other two 
are similar to these. 

30000 S$ = STR1NG$(32," - ") 
30010IFINP(255) = 63 

THEN ZZ$ = CHR$(15): ZZ = 2 

30020 LPRINT S$;: C1 =0: C2 = 31 

30021 GOSUB 30050 

30022 LPRINT S$; 

30030 LPRINT:LPRINT:LPRINT S$; 

30031 C1 =32:02 = 63 

30032 GOSUB 30050 

30033 LPRINT S$; 
30040 RETURN 

30050 FOR X= 15360 TO 16359 STEP 64 

30051 LPRINT ZZ$; 

30052 A$ = "" 

30060 FOR Y= C1 TO 02 STEP ZZ 

30061 F = PEEK(X + Y) 

30062 IF F>= 129ANDF<= 191 
THEN F = 127 

30070 A$ = AS + CHR$(F) 

30071 NEXT Y 

30072 LPRINT A$; 

30073 NEXT X 
30080 RETURN 

This version, submitted by Gene Toye 
of Marshall, Tx., divides the video into two 
halves and prints each half separately Two 
interesting features of the program are the 
use of INP in line 30010 to determine 
which character mode the video is in, and 
line 30062 which allows limited graphics to 
be printed. 

(Continued on page 3) 



KKKKefbottnce . . . 
Revisited 

TRS-80 Model I microcomputers 
which are currenty being delivered have a 
new style keyboard. We have gone to the 
new style because of supply problems with 
the previous keyboard. Please DO NOT 
attempt to remove the key caps and clean 
the contacts! We suggested this for the 
older style in our May 1979 Newsletter. 
This new keyboard does not have contacts 
in the same sense that the old one did, 
instead it uses a capacitive contact system 
which has eliminated the keybounce prob- 
lem. If you attempt to remove the key caps 
you may damage the keyboard! 

How can you be sure which keyboard 
you have? The older style keys have a 
shiny finish while the newer ones have a 
dull finish. Also, if you look at the keyboard 
from the side, the older style slopes in a 
straight stair-step while the newer style has 
a very definite curve. This curve helps to 
shorten the distance you have to reach to 
get to each key 

Basd Coawer st©sa Program 

The following program was 
suggested by one provided by Richard Col- 
lins of Belleville, 111. The program allows 
you to convert a decimal number to base 
16, and to convert a number in base 16 into 
decimal. 

10CLS 

20 INPUT"1 FOR DEC -> HEX, 2 FOR 

HEX ->DEC, 3 FOR END ";A 
30 ON A GOTO 50, 180, 330 
40 GOTO 20 
50CLS 
60 INPUT'ENTER DECIMAL NUMBER 

TO BE CONVERTED TO HEX";A 
70 FOR 1 = 3 TO STEP -1 
80B = INT(A/16^I) 
90A = A-B*(16*I) 
100 IF B = THEN A$(I) = "0": GOTO 140 
1 1 IF B<1 THEN A$(I) = RIGHTS 

(STR$(B),1): GOTO 140 
120B = INT(B-9) 
125 IF B>6 THEN PRINT'INPUT 

ERROR": GOTO 60 
130AS(I) = CHR$(64 + B) 
140 PRINT A$(I); 

(Continued on page 3) 
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Disk #0 

Your first drive comes with our lat- 
est TRSDOS, Manual and Disk 
Cable. This first drive will hold 
57K bytes of data and programs. 
16K Level II and Expansion Inter- 

f 2 a 6 C -1iTo uired : 499.00 

Disk #l-#3 

Expand your Disk System! Add 
up to 3 more drives for 300K 
bytes total on-line storage. Each 
additional drive increases your 
storage by 81 K bytes of pro- 
grams and data. Anf% nn 
26-1161 ....499.00 





The CTR-80 allows you to use Rewind and 
Fast Forward WITHOUT pulling the re- 
mote plug. The E/l gives you the ability to 
use two Data Recorders as you need 
them. A0% -._ 

26-1205 49.95 
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The Expansion Interface is the key to expand- 
ing your Level II TRS-80. It gives you the abil- 
ity to add an additional 32K of memory (in 1 6K 
increments), add a second Data Recorder, up 
to four Disk Drives, RS-232, printers, and 

3mi4o ^299.00 



Limits AC power line interference 
to your Model I system. Includes 
dual isolated filters, one for the 
computer and one for accesso- 
ries. Contains 8 outlets controlled 
by a single switch. U.L. Listed. 

26-1451 39.00 



1S-232-C Serial 
Interface Board 

The RS-232 board mounts inside 
your Expansion Interface. Once 
installed you have the capability 
of communicating with many se- 
rial devices including our 
Telephone Interface II. ~~ -.-, 
26-1145 99.00 




Telephone Interface II 

This is a full "originate/answer" acous- 
tic coupler. This device allows you to 
send and receive programs and data 
over regular telephone lines. Requires 
RS-232 Serial Interface Card, Expan- 
sion Interface and 16K Level II. 

26-1171 199.00 







A Division of Tandy Corporation 

Most Accessory Items In Product News are Available Quickly on Special Order 



This printer gives you 100 7x7 dot 
matrix characters per second in 
either upper or lower case. The 
printer will handle roll paper, single 
sheets (platen feed) or pin-feed 
forms. Print width is 80 characters 
(40 char, expanded width). 

26-1154 799.00 



Plus Cable 
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Let your TRS-80 speak out! You can actually pro- 
gram y our TRS-80 to produce electronically "syn- 
thesized" speech through the built-in speaker. It 
plugs into your TRS-80 bus connector on the key- 
board or Expansion Interface. Uses 60 phonemes, 
under software control, to produce words. For Level 
Torn — 16K preferred. -. 

26-1160 <J^3» 




Artificial "intelligence"' program emulates a psychi- 
atrist! It actually produces a conversational re- 
sponse "keyed" to the words you input! An excellent 
demonstration program! Connect the speech syn- 
thesizer and you can hear "Eliza" with the extra 
software included! 16K Level I or IL - - ft _ 

26-1908 1 4 J33 








€fsesal Fin; 

Expense management software. Helps you 
keep track of personal checking account in- 
come, expenses and budget accounts. Tracks 
up to 32 expense accounts and 100 total en- 
tries each month. Package contains check 
book initialization and balancing programs plus 
a monthly budget program. The budget sum- 
mary provides you with a recap for quarterly or 
annual time periods listed by expense account 
and code number. Comes complete with 3-ring 
binder, program tapes and four blank data 

tapes. (4K) h a t%tn 

26-1602 1 4*3© 

Versatile program designed to teach the basics of 
Algebra. It is idea! for use as a supplement to an 
exising course or as a refresher for those waning 
to "brush-up" on the subject. Instruction is com- 
pletely self-paced, so it can be taken at the speed 
most comfortable for the student. The course be- 
gins with definitions of variables, constants, terms, 
expressions and the use of parentheses. By the 
sixth lesson the student will feam to solve quadratic 
equations by factoring! School texts make an ex- 
cellent complement to the course. (4K) - ft oc 
26-1702 1 aLSJO 




Surrounded by a "mountain" of figures? You dont 

need speda! training in mathematical statistics to do 
meaningful data analysis with your TRS-80! You 
can analyze numerical date used in business,, edu- 
cation, government and many other fields. Package 
includes five programs for describing data sets and 
analyse plus two data utility programs. Programs 
include Random Sample, Histogram, T-Test, Cor- 
relation, Linear Regresswn and morel (4K) 



26-1763 



Specially designed for beginners or anyone who 
would benefit from a review of basic math opera- 
Ions. It is a highly structured approach that teaches 
the learner to understand and use math facts. It 
helps in the memorization and retention of facts and 
then shows the learner how to apply their use in 
other math situations. Emphasis is placed on repe- 
tition and review. The program provides total com- 
munication and feedback which incorporates indi- 
vidualized instruction either in a group with an 
instructor or on an individual basis. (4K) - ft ftc 
26-1761 ■ 5J.5JO 
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Radio Shack is currently compiling a 
Software Sourcebook. The purpose of the 
Sourcebook is to make available a list of 
existing software for the TRS-80, both Model 
I and Model II. 

The Sourcebook will provide you with Ti- 
tles, Descriptions, Authors and Prices for 
TRS-80 application software. Radio Shack 
will NOT review this software and will make 
no representations as to its value or applica- 
bility to your needs. We are simply providing 
authors of software with a vehicle for getting 
information to TRS-80 users, as well as pro- 
viding users with a way of getting information 
on available programs. 

If you find information in the Sourcebook 
about a program which interests you, you 
will contact the author or distributor directly It 
will be YOUR responsibility to see that the 
program works, and does what you need. 

We will accept listings for the Sourcebook 
from ANY source in the following eight 
categories: GAMES, EDUCATION — HOME, 



EDUCATION — CLASSROOM, STATISTICS/ 
MATH, BUSINESS/ACCOUNTING, BUSI- 
NESS/INVENTORY CONTROL, and 
HOME/PERSONAL USE. We will accept ap- 
plication programs written in any language. 
We will not accept programs for system 
software such as Operating Systems, etc. 

If you are looking for programs, look for 
our Sourcebook. We hope to have it available 
in your local Radio Shack in JUNE. If you have 
a program you would like to list in the 
Sourcebook, fill in one or more of the at- 
tached Program Listing Forms, or copy one 
and send the information on the copy This 
Sourcebook will be available through all 
Radio Shack stores and participating dealers, 
which will give your program descriptions 
one of the widest possible distributions. 

More details will be provided on the 
availability and cost of the Sourcebook as 
they become available. The Sourcebook will 
be amended and updated as needed to 
maintain current information. 



PROGRAM LISTING FORM 
TRS-80 Applications Software Sourcebook 



CLASSIFICATION OF PROGRAM: (Check only one box. 



□ Game 

□ Education — Home 

□ Education — Classroom 

□ Statistics/Math 



□ Business/Accounting 

□ Business/Inventory Control 

□ Specific Industry/Profession 

□ Home/Personal Use 



PROGRAM TITLE: 


(Please 


PRINT in the blocks provided.) 









































































































PROGRAM DESCRIPTION: (Please PRINT in the blocks provided.) 
NOTE: If a language other than BASIC is used, include in the description. 



MINIMUM TRS-80 CONFIGURATION REQUIRED: 
□ MODEL I: 



□ 4K □ 16K □ 32K □ 48K 

□ Lev I □ Lev II □ 1 Disk □ 2 Disk □ 3 Disk □ 4 Disk 



□ 32K □ 64K 

□ 1 Disk □ 2 Disk □ 3 Disk □ 4 Disk 



□ MODEL II: 
AVAILABLE PROGRAM FORMATS AND PRICES: (Fill in information for those formats you can offer.) 



□ Cassette 

□ Disk 

□ Source Listing 

ORDERING INFORMATION: (Where can this material be ordered? 
Name 



Address 



City 



State 



Zip 



Area Code 



Phone Number 



(Listings are accepted with the understanding that Radio Shack has no liability for errors occurring in the printed Software Sourcebook listing, including the 
failure to include a listing, and in no event shall it be liable for damages to any person in an amount greater than $10.00.) 



FO-155 
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A DIVISION OF TANDY CORPORATION 



TRS-80 APPLICATIONS SOFTWARE SOURCEBOOK 



How To Obtain A Listing For Your Program 



To obtain a listing in the TRS-80 Application Software Sourcebook for a 
period of one year, you must complete the attached form(s) and mail it with 
a $10.00 check or money order to the address below Make remittance 
payable to "Radio Shack!' 

Should you want one program listed under more than one category, 
separate listing forms and fees must be submitted for each listing. 

The TRS-80 Applications Software Sourcebook will accept only listings 
for applications software. Requests to list systems software will be returned. 
Radio Shack reserves the right to reject any listing submitted by returning 
the payment to the sender. Further, all listings are accepted with the express 
understanding that Radio Shack shall have no liability for errors which may 
occur in the printed Software Sourcebook listing, including the failure to 
include a listing, and in no event shall Radio Shack be liable for damages to 
any person submitting listings in an amount greater than the 
listing fee ($10.00). 

The Sourcebook will be available at all Radio Shack stores and 
participating dealers in the U.S A., and will be updated and reprinted 
periodically as needed. Listings must be resubmitted or renewed to be 
included for more than one year. Sorry, there are no "quantity discounts" for 
multiple listings. 



TRS-80 Applications Sourcebook 
Radio Shack Box 17400 
Fort Worth, Texas 76102 



The biggest name In little iters 



(Tm) 



PROGRAM LISTING FORM 
TRS-80 Applications Software Sourcebook 



) 



CLASSIFICATION OF PROGRAM: (Check only one box.) 



□ Game 

□ Education — Home 

□ Education — Classroom 

□ Statistics/Math 



□ Business/Accounting 

□ Business/Inventory Control 

□ Specific Industry/Profession 

□ Home/Personal Use 



PROGRAM TITLE: 


(Please 


PRINT in the blocks provided.) 

























































































































PROGRAM DESCRIPTION: (Please PRINT in the blocks provided.) 
NOTE: If a language other than BASIC is used, include in the description. 



MINIMUM TRS-80 CONFIGURATION REQUIRED: 

D MODEL I: 



D4K □ 16K □ 32K □ 48K 

□ Lev I □ Lev II □ 1 Disk □ 2 Disk □ 3 Disk □ 4 Disk 

□ 32K □ 64K 

□ 1 Disk □ 2 Disk □ 3 Disk □ 4 Disk 



□ MODEL II: 
AVAILABLE PROGRAM FORMATS AND PRICES: (Fill in information for those formats you can offer.) 



□ Cassette 

□ Disk 

□ Source Listing 



ORDERING INFORMATION: (Where can this material be ordered? 
Name 



Address 



City 































































































































































































State 






Zip 















Area Code 



Phone Number 



(Listings are accepted with the understanding that Radio Shack has no liability for errors occurring 
in the printed Software Sourcebook listing, including thefailure to include a listing, and in no event 
shall it be liable for damages to any person in an amount greater than $10.00.) 
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Tape EdHor/Assemfalcr 



There's a whole new world of programming open to 
you if you'we mastered BASIC. Now assembly- 
language programming comes to any 16K fand up) 
TRS-80! Once if s loaded you'll hawe the convenience 
of a powerful text editor. You can search for a particular 
string of characters anywhere in the text, renumber 
lines, scroll up or down and print to the line printer with 



or without line numbers! The assembler features a 
complete set of "switches" that give you complete con- 
trol of its operation. Error messages are displayed as 
complete phrases. System supports standard Zilog 
mnemonics. Package comes with 132-page manual 
and binder. ^_ _ 

26-2002 29=95 



Dis Editor/Assembler 



Take adwantage of the extra operation speed of 
machine-coded programs! Includes everything the ex- 
perienced programmer needs to create, compile and 
execute Z-80 or 8080 Assembly Language programs. 
Minimum hardware required: 
"TRS-3Q16K Lever E" 
• 16K Expansion Interface 
- 1 Mini-disk Drive f 2 preferred) 



The DISK EDITOR/ASSEMBLER Package consists of: 

- EDIT-80 software 

-MACROS© compiler 

• LINK-80 linking loader 

- FORTRAN subroutine library 

• CREF-80 cross reference software 

• Z-80 instruction set, complete manual and binder. 

99-95 



T-BUG System Ifeffllfet 



Powerful, inachine-lanfijage monitor designed to give 
you direct access to the Z-80 CPU. which is the heart 

of your TRS-80. T-BUG lets you: 

• Create and modify machine-language programs. 

• Debug machine-language programs through the use 
of "breakpoBits." 

• Examine and modify the contents of Z-80 registers. 



• Sawe and load cassette machine-language 

programs. 
» Execute machine-language programs created using 

T-BUG. 
Package comes with manual and tape. For' Level I or H. 

26-2M1 1 4-95 



3OTbfe»Pf€eM®m Sccbroittiiie 



The double-precision package lets you obtain 15-digI 
accuracy with sine, cosine, arctangent, natural loga- 
rithm, exponential, and square root functions. The 
functions, together with Lewel H BASIC'S "DEFOBL" 



and "DEFINTT provide a high 

many applications. 

26-1704 



of precision for 

9.95 



Le?r@I IE Uf&e Rmmsmhes 



"RENUM" is a programming aid that permits you to 
renumber all or part of your BASIC program. All refer- 
ences to line numbers contained within the program 



are updated to refect the new numbers. The program 
ewen lets you re-increment the line numbers! ft ftc 
26-2004 9.95 



locfe 



TRS-S0 Assembly-Language Programming. Excel- 
lent book written specifically for the TRS-80 for use 
with our assembly-language software. 

62-2QH6 j* 3*95 

TRS-80 Graphics. Learn how to really take advantage 

of the built-in graphics capability of your TRS-80! 

62-2063 5.95 



Understanding Digital Computers. "Walks" you 
through the architecture of modem digital computers. 
Recommended for anyone who wants to really know 

their TRS-80. ft _ 

62-2027 3*95 

TRS-8i Programs. Contains 32 useful programs. 
Subjects range from games to calculus. _ _ 

62-2064 5*95 



?3J*£ 









" ~ W~ <¥k^ aS* ** • -ts -* • «J» r- ^ , 



fSLgP #%!b? ^ISa** tfS^ 




3000 Inventory Line Items 
200 Vendors 

On-hand quantities up to 999999 
laximum selling price of any item is 
$9999.99 



• 64K Single Disk Model II 

• Line Printer capable of 132 characters per 
line such as the TRS-80 Line Printer III. 

Does more than just keep track of line items! Model 
II Inventory Management System provides inven- 
tory history, aging, turnover, profit margin and per- 
petual inventory status between physical counts! 

IMS goes beyond most "traditional" inventory sys- 
tems by projecting your reorder needs based on 
analysis of past performance sales trends. Optional 
capabilities, like coding of specific categories of 
goods for close tracking are part of the system. 

Designed specifically for the first time user, it fea- 
tures many error trapping routines that help guide 
you through the program! After your system is "set 
up" you simply enter purchase orders, merchandise 
receipt information, sales and returns — - the com- 
puter does the rest! Not only does it print the "basic" 
reports you need for management, it even prints 
« inventory worksheets! 




• Master Inventory List 

• Vendor Listing 

• Transaction Posting Report 

• Suggested Order List 

• Open Purchase Order List 
° ABC Code Analysis 

• Physical Inventory Worksheets 

• Physical Inventory Error Report 

• Inventory Performance Report Including: 
ABC Code Performance Summary 
ABC Code History Summary 

Total Inventory Performance Summary 

"In some cases there are several variations of the reports 
listed. 




Telephone Interface II 

Use the phone lines to transmit and receive data! 
The built-in communications capability of the Model 
II TRSDOS and a telephone interface can be your 
"window" to the world! Telephone Interface II is a 
versatile originate/answer acoustic coupler that 
does not require a direct connection to the phone 

linpc 

26-1171 199.00 



New! Model II 32 Cable 

Extra long five foot cable gives you plenty of length 
to reach devices such as the Telephone Interface II. 

26-4403 39.95 










n © 


* < 


9 


% 


s,e?JLfl *? 


f^>€ 


# r 


■••&. <> 


* © 


s— 1 


*a 


*§&? 



*L .^dms *&. 









^Cq^qEs 



Tic Mgg< 



&ft sanssa^ Ssa ififc <£®jnaptsfi<gg , s' 1 ^ 




ASIC Qa 




INPUT STATEMENT WITH PRINT® 

Mr. W. R. Davis of Windsor, Calif., pro- 
vides the following information which al- 
lows you to use more than one INPUT 
statement on each line of the video. 

What Mr. Davis is able to do is input 
data in table form, with more than one 
item being input on each line of the video. 

The method used is to combine three 
statements, PRINT®, INPUT, and FOR- 
NEXT By using PRINT© without an argu- 
ment, you are able to position the cursor 
anywhere on the video you want it. The 
specific format for doing this is: 

PRINT @NN,; 

You can then follow this with your 
INPUT statement. By using a FOR-NEXT 
statement, you can easily input informa- 
tion into an array Mr. Davis' example 
routine simulates inputting data into a 
checkbook array 

10 REM MULTIPLE INPUTS ON ONE 

LINE 
20 REM W.R. DAVIS WINDSOR, 

CALIF. 1/80 

100 CLS 

101 PRINT'TYPE 999 FOR CHECK # 
TO END LISTING" 

102 FOR K= 1 TO 800: NEXT 
110N1=14:N3 = 2 

111 DIM A(1 4,3,2) 
112PX = 64: PS = 21 .333 
120GOSUB900 

121 FORK = 1 TON3 

122 FOR 1 = 1 TON1 

130 PRINT® PX,;: INPUT A(I,1,K) 

131 IF A(I,1,K) = 999 THEN 1000 

140 PRINTS PX + PS,;: INPUT A(I,2,K) 

141 PRINT® PX + 2*PS,;: INPUT 
A(I,3,K) 

150IFI = N1 THEN INPUT'TO INPUT 
NEXT PAGE, PRESS 'ENTER' ";X 
160GOSUB800 

161 NEXT I 

162 NEXT K 

163 PRINT:PRINT"ASSIGNED 
MEMORY FULL" 

164PRINT"END":END 

800PX = PX + 64 

801 IF PX>959 THEN PX = 64: CLS: 

GOSUB 900 
810 RETURN 

900 CLS 

901 PRINT"CHECK#";TAB(21.333); 
"DATE";TAB(42.6)"AMOUNT" 

902 RETURN 

1000 PRINT'DATA ENTRY ENDED" 
1010 END 



Lines 100-164 print and input infor- 
mation, lines 800-810 calculate the loca- 
tion of the next line of input statements 
(PRINT® values), and lines 900-902 print 
the column titles. 

Variable Nl sets the number of lines to 
be input per page, N3 determines the 
number of pages to be input. Variable PX 
holds the initial print position in each line, 
and PS is the increment value across the 
video in one line. 

Mr. Davis notes that line 1000 would 
contain a PRINT subroutine, and that lines 
160-164 would normally exit you to 
another portion of your program. 

One word of caution. You can use 
PRINT® to position the cursor anywhere 
on the video. If you do not follow the 
statement with a semicolon, the line FOL- 
LOWING the one you print in will be 
erased. If you use an INPUT statement 
following the PRINT®, as we are suggest- 
ing here, anything which might have been 
printed on the next video line WILL be 
erased. Be aware that you may lose infor- 
mation on the next line, and either print 
only on every other line, or reprint the in- 
formation which is lost. 



BASE CONVERSION 



(from page 2) 



150 NEXT 

160 PRINT 

170 GOTO 20 

180 CLS 

190 PRINT"ENTER HEX HUMBER (UP 

TO 4 DIGITS) TO BE" 
200 INPUT'CONVERTED TO DECIMAL 

";H$ 

210 PRINT'THE DECIMAL EQUIVALENT 

IS:" 
220 IF LEN(H$)>4 OR LEN(H$) = THEN 

GOTO 180 
230 H = 

240 FOR 1 = 1 TOLEN(HS) 
250A$ = RIGHT$(H$,1) 
260IFA$>"F" 

THEN PRINT'INPUT ERROR": 

GOTO 20 
270 IF A$> = "A" AND A$< = "F" 

THENA = ASC(A$)-55 

ELSEA = VAL(A$) 
280H = H + A*16^(I-1) 
290 H$ = LEFT$(H$,LEN(H$) - 1 ) 
300 NEXT 
310 PRINT H 
320 GOTO 20 
330 END 



QUICK PRINTER II (from page 2) 

The following routine, submitted by 
Thomas Rosenthal of Troy, Mich. , allows 
you to type an entire video of al- 
phanumeric characters in 32 column 
mode. As soon as video location 16320 
becomes a character other than a blank, 
the entire video is automatically printed. 

10 CLS 

11 PRINTCHR$(14); CHR$(23) 
20 PRINT INKEY$; 

30 IF PEEK (16320) <> 32 THEN 

GOTO 50 
40 GOTO 20 

50 FOR X = 1 5360 TO 1 631 9 STEP 2 
60 LPRINT CHR$(PEEK(X)); 
70 NEXT 
80 GOTO 10 

Our thanks to Edward Huang for a 
subroutine to print the video and to Stanley 
Schriefer for a program which allows input 
of single 30 character lines and then prints 
them on the QP II. 

t@w@I 11 Calculator 

Tom Moore of Houston, Tx. sent this 
four function calculator for use on a Level II 
or Disk Basic Model I TRS-80. We have 
made a few changes to make the program 
easier to print, and we added a test in line 
10340 to trap division by zero errors. 

Several modifications to this basic 
program could be made, the easiest being 
to add exponentiation. In Line 10011 sim- 
ply add the "uparrow" symbol after the 
"slash (/)" for division. In Line 10200, after 
IF, add: 

A$ = "-*■" OR 
and then add a line 10335: 
10335 IF A$ = 'W THEN X = X^B: 

GOTO 10100 
Here is Mr. Moore's Calculator: 
10000 CLS: X = 0: B = 0: B$ = "": 

A$ = "" 
10005 PRINT'CALCULATOR — NO 

NEED TO USE ##ENTER## 

KEY" 

10010 PRINT 

10011 PRINT"USE KEYS FOR + - */ 
(NO NEED TO SHIFT)" 

10012 PRINT"USE @ KEY FOR 
RESULTS" 

10015 PRINT"PRESS 'CLEAR' TO 

CLEAR ENTRY" 
10017 PRINT 

10020 PRINT'EXAMPLE — "; 

10021 PRINT'ADD 5 PLUS 6, 
SUBTRACT 2, AND DIVIDE BY 3" 

10022 PRINT" ENTER '5' THEN ' + ' KEY 
(NO SHIFT!) 

10024 PRINT" ENTER '6' THEN ' + ' KEY 
10026 PRINT" ENTER '2' THEN '-' KEY 
10028 PRINT" ENTER '3' THEN V KEY 
10030 PRINT" PRESS '@' KEY FOR 
RESULTS" 

(Continued on page 4) 
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SORT ROUTINES (from page 2) 

1 70 IF A$(I)< = A$(L) THEN 220 

180T$ = A$(I): A$(I) = A$(L): A$(L) = T$ 

190I = I-M 

200 IF I<1 THEN 220 

210 GOTO 160 

220 J = J + 1 

230 IF J>K THEN 120 

240 GOTO 150 

SHELL SORT swapping pointers — for this 
sort, DELETE line 180 above and insert the 
following lines: 

177 FOR Z = TO 2 

178 P = VARPTR(AS(I)) +Z: IF P>32767 
THEN P=-1*(65536-P) 

179 W = VARPTR(A$(L)) +Z: IF 

W >32767 THEN W = - 1 *(65536 - W) 

180 A1 =PEEK(P): A2 = PEEK(W) 

181 IFZ = 0AND A1>LEN(AS(I))THEN 
200 

182 IF Z = AND A2>LEN(A$(L)) THEN 
200 

183 POKE P,A2 

184 POKE W,A1 

185 NEXTZ 

The effect of this last routine is to 
move string pointers rather than the strings 
themselves. This avoids the problem of 
creating new strings and avoids the "gar- 
bage collection" routine. 

You will have noticed that, tor our 
example, the VARFTR routine is actually 
slower for up to 500 strings. Above 500 the 
time advantages are very large. 

Our thanks to L.H. Ruble of Battle 
Creek, Mich, for the above routine for sort- 
ing with VARPTR, and to R.B. Reyes for a 
similiar suggestion. 

TRSDOS PROGRAMS (from page 1) 

XFERSYS. A program which upgrades 
your TRSDOS 1.1 diskettes to TRSDOS 1.2 
diskettes without affecting your user files. 

PATCH. This program allows you to make 
minor changes to a program or data file 



directly without having to recreate the en- 
tire file. One use for this will be making 
Radio Shack-supported modifications to 
TRSDOS. One such modification is in- 
cluded which allows you to bypass the 
Date and Time questions on Power-Up. 

DATM. A machine language subroutine 
which calculates a new date based on a 
given date and a time span in days. Also, if 
given two dates the program will calculate 
the number of days between the dates. A 
program, EXDATM, is included which al- 
lows you access to DATM directly from the 
keyboard. Complete source and object 
code listings of DATM are provided. 

HERZ50. This is a patch program which 
allows you to convert TRSDOS 1.2 for op- 
eration with a 50 hertz power source rather 
than the U.S. standard of 60 hertz. 



L II CALCULATOR 



(from page 3) 



10032 PRINT 

10034 PR!NT"PRESS ' + ' KEY AFTER A 

TOTAL TO RE-ENTER THE 

TOTAL" 
10040 PRINT 

10045 INPUT'HOW MANY DECIMAL 
PLACES (0 TO 5)";D% 

10046 IF D%<0 OR D%>5 THEN 10045 
10048 CLS 

10050 G$ = "###,###,###." + 

STRING$(D%,"#") 
10090 REM **** USE INKEY$ FUNCTION 

TO AVOID USING ENTER KEY 
10100 A$ = INKEY$: IF A$ = "" THEN 

10100 
10105 REM**** CLEAR 
10107IFASC(A$) = 31 THENB$ = "": 

GOTO 10100 
10110 IF A$ = "0" OR VAL(A$)>0 OR 

A$ = "."THENB$ = B$ + A$: 

GOTO 10100 
10115 REM**** NEXT TWO 

STATEMENTS ELIMINATE 

SHIFTING 



10120 IF A$ = ":" THEN A$ = "*" 
10130 IF AS = ";" THEN A$ = " + " 
10145 IF C%<>0 OR X = THEN GOTO 

10200 
10150 IF AS = " + " AND LEN(B$) = 

THEN B = X: X = 0: GOTO 10300 

ELSEX = 
10200 IF A$ = " + " OR A$ = "-" OR 

A$ = "*" OR A$ = '7" THEN GOTO 

10280 
10210 IF A$<>" = " AND A$<>"(5" 

THEN GOTO 10100 
10220 PRINT STRING$(20," = ") 
10230 PRINT USING G$;X 
10240 C% = 
10250 PRINT: PRINT 
10260 GOTO 10100 
10280 IF B$ = "" THEN GOTO 10300 
10290 B = VAL(B$) 
10300 PRINT USING G$;B;: B$ = "" 
1 0302 C% = C% + 1 
10305 IF C%>1 THEN PRINT TAB(20) A$ 

ELSE PRINT 
10310 IF A$ = " + " THEN X = X + B: 

GOTO 10100 
10320 IF AS = "-" THEN X = X-B: 

GOTO 10100 
10330 IF A$ = "*" THEN X = X*B: GOTO 

10100 
10340 IF B<>0 THEN X = X/B: GOTO 

10100 
10345 PRINT'DIVISION BY ZERO 

ERROR" 
10347 GOTO 10100 
10350 REM *** CALCULATOR 
10360 REM *** BY TOM MOORE 
10370 REM *** HOUSTON, TX 
10380 REM*** 1979 
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